/ Macwelt 4 / Macwelt DVD 4.cdr / Entwickler / Mac-OS / MBS-RB-Plugins / examples / Alias / Using Mac OS Alias files.rb

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1b 55 73 69 6e 67 20 | 4d 61 63 20 4f 53 20 41 |..Using |Mac OS A|
|00000010| 6c 69 61 73 20 66 69 6c | 65 73 2e 72 62 00 00 00 |lias fil|es.rb...|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 67 50 6a 52 42 76 | 32 01 00 00 22 00 01 00 |.TgPjRBv|2..."...|
|00000050| 00 00 00 00 00 2f 09 00 | 00 01 1e b8 dc b8 f7 b8 |...../..|........|
|00000060| dc b8 f7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 03 22 00 00 |........|....."..|
|00000080| 0d 00 00 00 41 41 41 41 | 41 41 41 41 41 41 41 41 |....AAAA|AAAAAAAA|
|00000090| 41 41 41 41 01 04 3f 3f | 3f 3f 00 00 01 00 01 00 |AAAA..??|??......|
|000000a0| 15 41 6c 69 61 73 20 4d | 67 72 20 50 6c 75 67 69 |.Alias M|gr Plugi|
|000000b0| 6e 20 44 65 6d 6f 80 80 | 80 01 80 80 80 01 01 00 |n Demo..|........|
|000000c0| 00 03 00 04 76 31 2e 30 | 1a 76 31 2e 30 2c 20 62 |....v1.0|.v1.0, b|
|000000d0| 79 20 54 68 6f 6d 61 73 | 20 54 65 6d 70 65 6c 6d |y Thomas| Tempelm|
|000000e0| 61 6e 6e 00 00 00 12 4d | 79 20 41 70 70 6c 69 63 |ann....M|y Applic|
|000000f0| 61 74 69 6f 6e 2e 65 78 | 65 00 0e 4d 79 20 41 70 |ation.ex|e..My Ap|
|00000100| 70 6c 69 63 61 74 69 6f | 6e 88 03 32 90 06 b0 03 |plicatio|n..2....|
|00000110| 06 69 63 73 23 80 01 01 | 80 06 60 08 10 08 90 08 |.ics#...|..`.....|
|00000120| 10 0c b0 33 4c 20 84 22 | 14 60 86 a2 17 99 9f 66 |...3L ."|.`.....f|
|00000130| 7e 18 78 06 e0 01 80 01 | 80 07 e0 0f f0 0f f0 0f |~.x.....|........|
|00000140| f0 0f f0 3f fc 3f fc 3f | fc 7f fe ff ff ff ff 7f |...?.?.?|........|
|00000150| fe 1f f8 07 e0 01 80 49 | 43 4e 23 80 04 00 01 80 |.......I|CN#.....|
|00000160| 00 00 06 60 00 00 18 18 | 00 00 60 06 00 00 48 0a |...`....|..`...H.|
|00000170| 00 00 42 22 00 00 40 8a | 00 00 40 22 00 00 40 8a |..B"..@.|..@"..@.|
|00000180| 00 00 40 22 00 00 40 8a | 00 00 60 26 00 01 98 99 |..@"..@.|..`&....|
|00000190| 80 06 06 60 60 18 01 80 | 18 12 02 20 28 10 88 88 |...``...|... (...|
|000001a0| 88 10 22 02 28 30 08 80 | 8c 70 22 02 2a 90 08 80 |..".(0..|.p".*...|
|000001b0| 8d b0 22 02 2b 98 09 80 | 99 a6 26 62 67 69 98 19 |..".+...|..&bgi..|
|000001c0| 9e 1a 60 06 78 06 80 01 | e0 01 a0 07 80 00 68 1e |..`.x...|......h.|
|000001d0| 00 00 1a 78 00 00 06 e0 | 00 00 01 80 00 00 01 80 |...x....|........|
|000001e0| 00 00 07 e0 00 00 1f f8 | 00 00 7f fe 00 00 7f fe |........|........|
|000001f0| 00 00 7f fe 00 00 7f fe | 00 00 7f fe 00 00 7f fe |........|........|
|00000200| 00 00 7f fe 00 00 7f fe | 00 00 7f fe 00 01 ff ff |........|........|
|00000210| 80 07 ff ff e0 1f ff ff | f8 1f ff ff f8 1f ff ff |........|........|
|00000220| f8 1f ff ff f8 3f ff ff | fc 7f ff ff fe ff ff ff |.....?..|........|
|00000230| ff ff ff ff ff ff ff ff | ff ff ff ff ff 7f ff ff |........|........|
|00000240| fe 1f ff ff f8 07 ff ff | e0 01 ff ff 80 00 7f fe |........|........|
|00000250| 00 00 1f f8 00 00 07 e0 | 00 00 01 80 00 69 63 73 |........|.....ics|
|00000260| 34 80 02 00 00 00 0f f0 | 00 00 00 00 00 0f f8 8f |4.......|........|
|00000270| f0 00 00 00 00 f8 88 88 | 9f 00 00 00 00 f8 88 99 |........|........|
|00000280| 9f 00 00 00 00 f8 88 99 | 9f 00 00 00 00 f8 88 99 |........|........|
|00000290| 9f 00 00 00 ff cc 88 99 | 11 ff 00 00 fc cc cc 11 |........|........|
|000002a0| 11 1f 00 00 fc c3 73 21 | 22 2f 00 0f fc c7 37 12 |......s!|"/....7.|
|000002b0| 12 2f f0 fc fc c3 73 21 | 22 2f df f0 cf f7 3f f2 |./....s!|"/....?.|
|000002c0| 1f fd df 0f f0 cf fc cf | fd df f0 00 0f f0 cc cd |........|........|
|000002d0| df f0 00 00 00 0f f0 df | f0 00 00 00 00 00 0f f0 |........|........|
|000002e0| 00 00 00 69 63 73 38 80 | 04 00 00 00 00 00 00 00 |...ics8.|........|
|000002f0| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|00000300| e1 e1 ff ff 00 00 00 00 | 00 00 00 00 00 ff e3 e1 |........|........|
|00000310| e1 e1 e1 e5 ff 00 00 00 | 00 00 00 00 00 ff e3 e3 |........|........|
|00000320| e3 e5 e5 e5 ff 00 00 00 | 00 00 00 00 00 ff e3 e3 |........|........|
|00000330| e3 e5 e5 e5 ff 00 00 00 | 00 00 00 00 00 ff e3 e3 |........|........|
|00000340| e3 e5 e5 e5 ff 00 00 00 | 00 00 00 ff ff 2a 2a e3 |........|.....**.|
|00000350| e3 e5 e5 0b 0b ff ff 00 | 00 00 00 ff 2a 2a 2a 2a |........|....****|
|00000360| 2a 0b 0b 0b 0b 0b ff 00 | 00 00 00 ff 54 54 7f 7f |*.......|....TT..|
|00000370| 7f 11 11 11 17 17 ff 00 | 00 00 ff ff 54 54 7f 7f |........|....TT..|
|00000380| 7f 11 11 11 17 17 ff ff | 00 ff f6 ff 54 54 7f 7f |........|....TT..|
|00000390| 7f 11 11 11 17 17 ff f9 | ff ff f6 f6 ff ff 7f 7f |........|........|
|000003a0| ff ff 11 11 ff ff f9 f9 | ff 00 ff ff f6 f6 ff ff |........|........|
|000003b0| f7 f7 ff ff f9 f9 ff ff | 00 00 00 00 ff ff f6 f6 |........|........|
|000003c0| f7 f7 f9 f9 ff ff 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|000003d0| f6 f9 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| ff ff 00 00 00 00 00 00 | 00 69 63 6c 34 80 08 00 |........|.icl4...|
|000003f0| 00 00 00 00 00 00 0f f0 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 0f f8 8f | f0 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 0f f8 88 88 | 8f f0 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 0f f8 88 88 88 | 88 8f f0 00 00 00 00 00 |........|........|
|00000430| 00 00 00 0f 88 08 88 88 | 88 89 f0 00 00 00 00 00 |........|........|
|00000440| 00 00 00 0f 88 88 08 88 | 89 99 f0 00 00 00 00 00 |........|........|
|00000450| 00 00 00 0f 88 88 88 09 | 99 99 f0 00 00 00 00 00 |........|........|
|00000460| 00 00 00 0f 88 88 88 99 | 99 99 f0 00 00 00 00 00 |........|........|
|00000470| 00 00 00 0f 88 88 88 89 | 99 99 f0 00 00 00 00 00 |........|........|
|00000480| 00 00 00 0f 88 88 88 99 | 99 99 f0 00 00 00 00 00 |........|........|
|00000490| 00 00 00 0f 88 88 88 89 | 99 99 f0 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 0f 88 88 88 99 | 99 99 f0 00 00 00 00 00 |........|........|
|000004b0| 00 00 0f fc c8 88 88 89 | 99 91 1f f0 00 00 00 00 |........|........|
|000004c0| 00 0f fc cc cc c8 88 99 | 91 11 11 1f f0 00 00 00 |........|........|
|000004d0| 0f fc cc cc cc cc cc 71 | 11 11 11 11 1f f0 00 00 |.......q|........|
|000004e0| 0f cc 0c cc cc cc 37 22 | 01 11 11 11 12 f0 00 00 |......7"|........|
|000004f0| 0f cc cc 0c cc 73 73 71 | 21 01 11 12 22 f0 00 00 |.....ssq|!..."...|
|00000500| 0f cc cc cc 07 37 37 22 | 12 12 02 22 22 f0 00 00 |.....77"|...""...|
|00000510| ff cc cc cc 73 73 73 71 | 21 21 22 22 22 ff 00 0f |....sssq|!!"""...|
|00000520| 0f cc cc cc c7 37 37 22 | 12 12 12 22 22 fd f0 f0 |.....77"|...""...|
|00000530| cf cc cc cc 73 73 73 71 | 21 21 22 22 22 fc df fc |....sssq|!!"""...|
|00000540| cf cc cc cc c7 37 37 22 | 12 12 12 22 22 fc cf fc |.....77"|...""...|
|00000550| 0f fc cc cc 73 73 7f f1 | 21 21 22 22 2f fc df fc |....ss..|!!""/...|
|00000560| cc 0f fc cc c7 3f fd df | f2 12 12 2f fc dd df 0f |.....?..|.../....|
|00000570| fc cc 0f fc 7f fd dd dc | cf f1 2f fc dd df f0 00 |........|../.....|
|00000580| 0f fc cc 0f fd dd cc cc | cc cf fc dd df f0 00 00 |........|........|
|00000590| 00 0f fc cc 00 cc cc cc | cc cc dd df f0 00 00 00 |........|........|
|000005a0| 00 00 0f fc cc 00 cc cc | cc dd df f0 00 00 00 00 |........|........|
|000005b0| 00 00 00 0f fc cc 00 cc | dd df f0 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 0f fc cc dd | df f0 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 0f fc df | f0 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 0f f0 | 00 00 00 00 00 00 00 69 |........|.......i|
|000005f0| 63 6c 38 80 10 00 00 00 | 00 00 00 00 00 00 00 00 |cl8.....|........|
|00000600| 00 00 00 00 ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 ff ff e1 e1 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| ff ff e1 e1 e1 e1 e1 e1 | ff ff 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|00000660| e1 e1 e1 e1 e1 e1 e1 e1 | e1 e1 ff ff 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff e3 |........|........|
|00000680| e3 00 e1 e1 e1 e1 e1 e1 | e1 e3 e5 ff 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff e3 |........|........|
|000006a0| e3 e3 e3 00 e1 e1 e1 e3 | e5 e5 e5 ff 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff e3 |........|........|
|000006c0| e3 e3 e3 e3 e3 00 e5 e5 | e5 e5 e5 ff 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff e3 |........|........|
|000006e0| e3 e3 e3 e3 e3 e5 e5 e5 | e5 e5 e5 ff 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff e3 |........|........|
|00000700| e3 e3 e3 e3 e3 e3 e5 e5 | e5 e5 e5 ff 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff e3 |........|........|
|00000720| e3 e3 e3 e3 e3 e5 e5 e5 | e5 e5 e5 ff 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff e3 |........|........|
|00000740| e3 e3 e3 e3 e3 e3 e5 e5 | e5 e5 e5 ff 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff e3 |........|........|
|00000760| e3 e3 e3 e3 e3 e5 e5 e5 | e5 e5 e5 ff 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff 2a 2a |........|......**|
|00000780| e3 e3 e3 e3 e3 e3 e5 e5 | e5 e5 0b 0b ff ff 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 ff ff 2a 2a 2a 2a |........|....****|
|000007a0| 2a 2a e3 e3 e3 e5 e5 e5 | 0b 0b 0b 0b 0b 0b ff ff |**......|........|
|000007b0| 00 00 00 00 00 00 00 00 | ff ff 2a 2a 2a 2a 2a 2a |........|..******|
|000007c0| 2a 2a 2a 2a 2a 54 0b 0b | 0b 0b 0b 0b 0b 0b 0b 0b |*****T..|........|
|000007d0| ff ff 00 00 00 00 00 00 | ff 54 54 00 2a 2a 2a 2a |........|.TT.****|
|000007e0| 2a 2a 2a 54 7f 11 11 00 | 0b 0b 0b 0b 0b 0b 0b 11 |***T....|........|
|000007f0| 17 ff 00 00 00 00 00 00 | ff 54 54 54 54 00 2a 2a |........|.TTTT.**|
|00000800| 2a 54 7f 7f 7f 7f 11 11 | 11 00 0b 0b 0b 11 17 17 |*T......|........|
|00000810| 17 ff 00 00 00 00 00 00 | ff 54 54 54 54 54 54 00 |........|.TTTTTT.|
|00000820| 7f 7f 7f 7f 7f 11 11 11 | 11 11 11 00 17 17 17 17 |........|........|
|00000830| 17 ff 00 00 00 00 00 ff | ff 54 54 54 54 54 54 7f |........|.TTTTTT.|
|00000840| 7f 7f 7f 7f 7f 7f 11 11 | 11 11 11 17 17 17 17 17 |........|........|
|00000850| 17 ff ff 00 00 00 ff 00 | ff 54 54 54 54 54 54 54 |........|.TTTTTTT|
|00000860| 7f 7f 7f 7f 7f 11 11 11 | 11 11 11 11 17 17 17 17 |........|........|
|00000870| 17 ff f9 ff 00 ff 00 f7 | ff 54 54 54 54 54 54 7f |........|.TTTTTT.|
|00000880| 7f 7f 7f 7f 7f 7f 11 11 | 11 11 11 17 17 17 17 17 |........|........|
|00000890| 17 ff f7 f9 ff ff f7 f7 | ff 54 54 54 54 54 54 54 |........|.TTTTTTT|
|000008a0| 7f 7f 7f 7f 7f 11 11 11 | 11 11 11 11 17 17 17 17 |........|........|
|000008b0| 17 ff f7 f7 ff ff f7 00 | ff ff 54 54 54 54 54 7f |........|..TTTTT.|
|000008c0| 7f 7f 7f 7f ff ff 11 11 | 11 11 11 17 17 17 17 17 |........|........|
|000008d0| ff ff f7 f9 ff ff f7 f7 | f7 00 ff ff 54 54 54 54 |........|....TTTT|
|000008e0| 7f 7f ff ff f9 f9 ff ff | 11 11 11 11 17 17 ff ff |........|........|
|000008f0| f7 f9 f9 f9 ff 00 ff ff | f7 f7 f7 00 ff ff 54 7f |........|......T.|
|00000900| ff ff f9 f9 f9 f9 f7 f6 | ff ff 11 17 ff ff f7 f9 |........|........|
|00000910| f9 f9 ff ff 00 00 00 00 | ff ff f7 f7 f7 00 ff ff |........|........|
|00000920| f9 f9 f9 f7 f6 f6 f6 f6 | f6 f6 ff ff f7 f9 f9 f9 |........|........|
|00000930| ff ff 00 00 00 00 00 00 | 00 00 ff ff f7 f7 f7 00 |........|........|
|00000940| 00 f6 f6 f6 f6 f6 f6 f6 | f6 f7 f7 f9 f9 f9 ff ff |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff f7 f7 |........|........|
|00000960| f7 00 00 f6 f6 f6 f6 f7 | f7 f9 f9 f9 ff ff 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|00000980| f7 f7 f7 00 00 f7 f7 f9 | f9 f9 ff ff 00 00 00 00 |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| ff ff f7 f7 f7 f9 f9 f9 | ff ff 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 ff ff f7 f9 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 01 07 41 | 6e 79 46 69 6c 65 04 3f |.......A|nyFile.?|
|00000a00| 3f 3f 3f 04 3f 3f 3f 3f | 00 00 01 41 04 56 69 65 |???.????|...A.Vie|
|00000a10| 77 0a 6d 61 69 6e 57 69 | 6e 64 6f 77 05 b8 02 a4 |w.mainWi|ndow....|
|00000a20| 01 9f 01 8b 01 bc 0c 92 | 08 b4 03 15 04 4e 61 6d |........|.....Nam|
|00000a30| 65 0a 6d 61 69 6e 57 69 | 6e 64 6f 77 05 46 72 61 |e.mainWi|ndow.Fra|
|00000a40| 6d 65 01 30 0c 48 61 73 | 42 61 63 6b 43 6f 6c 6f |me.0.Has|BackColo|
|00000a50| 72 05 46 61 6c 73 65 09 | 42 61 63 6b 43 6f 6c 6f |r.False.|BackColo|
|00000a60| 72 08 31 36 37 37 37 32 | 31 35 08 42 61 63 6b 64 |r.167772|15.Backd|
|00000a70| 72 6f 70 01 30 05 54 69 | 74 6c 65 0a 41 6c 69 61 |rop.0.Ti|tle.Alia|
|00000a80| 73 20 44 65 6d 6f 07 56 | 69 73 69 62 6c 65 04 54 |s Demo.V|isible.T|
|00000a90| 72 75 65 0a 46 75 6c 6c | 53 63 72 65 65 6e 05 46 |rue.Full|Screen.F|
|00000aa0| 61 6c 73 65 0e 4d 65 6e | 75 42 61 72 56 69 73 69 |alse.Men|uBarVisi|
|00000ab0| 62 6c 65 04 54 72 75 65 | 08 43 6c 6f 73 65 42 6f |ble.True|.CloseBo|
|00000ac0| 78 05 46 61 6c 73 65 08 | 47 72 6f 77 49 63 6f 6e |x.False.|GrowIcon|
|00000ad0| 05 46 61 6c 73 65 08 5a | 6f 6f 6d 49 63 6f 6e 05 |.False.Z|oomIcon.|
|00000ae0| 46 61 6c 73 65 0b 42 61 | 6c 6c 6f 6f 6e 48 65 6c |False.Ba|lloonHel|
|00000af0| 70 00 09 4d 61 63 50 72 | 6f 63 49 44 01 30 09 50 |p..MacPr|ocID.0.P|
|00000b00| 6c 61 63 65 6d 65 6e 74 | 01 32 05 57 69 64 74 68 |lacement|.2.Width|
|00000b10| 03 33 33 30 06 48 65 69 | 67 68 74 03 33 33 30 08 |.330.Hei|ght.330.|
|00000b20| 4d 69 6e 57 69 64 74 68 | 02 36 34 09 4d 69 6e 48 |MinWidth|.64.MinH|
|00000b30| 65 69 67 68 74 02 36 34 | 08 4d 61 78 57 69 64 74 |eight.64|.MaxWidt|
|00000b40| 68 05 33 32 30 30 30 09 | 4d 61 78 48 65 69 67 68 |h.32000.|MaxHeigh|
|00000b50| 74 05 33 32 30 30 30 07 | 00 0a 6d 61 69 6e 57 69 |t.32000.|..mainWi|
|00000b60| 6e 64 6f 77 b8 01 06 57 | 69 6e 64 6f 77 00 00 01 |ndow...W|indow...|
|00000b70| 06 44 65 6d 6f 49 74 0f | 66 20 61 73 20 46 6f 6c |.DemoIt.|f as Fol|
|00000b80| 64 65 72 49 74 65 6d 00 | 00 8d 01 23 8d 01 23 9e |derItem.|...#..#.|
|00000b90| 01 1b 53 75 62 20 44 65 | 6d 6f 49 74 28 66 20 61 |..Sub De|moIt(f a|
|00000ba0| 73 20 46 6f 6c 64 65 72 | 49 74 65 6d 29 19 44 69 |s Folder|Item).Di|
|00000bb0| 6d 20 73 2c 20 61 6c 69 | 73 52 73 72 63 20 61 73 |m s, ali|sRsrc as|
|00000bc0| 20 53 74 72 69 6e 67 1b | 44 69 6d 20 6d 6f 64 65 | String.|Dim mode|
|00000bd0| 2c 20 69 2c 20 65 72 72 | 20 61 73 20 49 6e 74 65 |, i, err| as Inte|
|00000be0| 67 65 72 2c 44 69 6d 20 | 66 31 2c 20 66 32 20 61 |ger,Dim |f1, f2 a|
|00000bf0| 73 20 46 6f 6c 64 65 72 | 49 74 65 6d 2c 20 72 66 |s Folder|Item, rf|
|00000c00| 20 61 73 20 52 65 73 6f | 75 72 63 65 46 6f 72 6b | as Reso|urceFork|
|00000c10| 1b 44 69 6d 20 61 6c 69 | 61 73 20 61 73 20 4d 61 |.Dim ali|as as Ma|
|00000c20| 63 41 6c 69 61 73 52 65 | 63 6f 72 64 00 0f 69 66 |cAliasRe|cord..if|
|00000c30| 20 66 2e 41 6c 69 61 73 | 20 74 68 65 6e 2b 2f 2f | f.Alias| then+//|
|00000c40| 20 54 68 69 73 20 69 73 | 20 61 6e 20 41 6c 69 61 | This is| an Alia|
|00000c50| 73 20 46 69 6c 65 20 2d | 20 6c 65 74 27 73 20 6c |s File -| let's l|
|00000c60| 6f 6f 6b 20 61 74 20 69 | 74 00 93 01 2f 2f 20 67 |ook at i|t...// g|
|00000c70| 65 74 20 74 68 65 20 66 | 69 6c 65 27 73 20 22 61 |et the f|ile's "a|
|00000c80| 6c 69 73 22 20 72 65 73 | 6f 75 72 63 65 2c 20 77 |lis" res|ource, w|
|00000c90| 68 69 63 68 20 63 6f 6e | 74 61 69 6e 73 20 74 68 |hich con|tains th|
|00000ca0| 65 20 41 6c 69 61 73 20 | 52 65 63 6f 72 64 20 69 |e Alias |Record i|
|00000cb0| 6e 20 62 69 6e 61 72 79 | 20 66 6f 72 6d 61 74 17 |n binary| format.|
|00000cc0| 72 66 20 3d 20 66 2e 4f | 70 65 6e 52 65 73 6f 75 |rf = f.O|penResou|
|00000cd0| 72 63 65 46 6f 72 6b 24 | 61 6c 69 73 52 73 72 63 |rceFork$|alisRsrc|
|00000ce0| 20 3d 20 72 66 2e 47 65 | 74 52 65 73 6f 75 72 63 | = rf.Ge|tResourc|
|00000cf0| 65 28 22 61 6c 69 73 22 | 2c 20 30 29 08 72 66 2e |e("alis"|, 0).rf.|
|00000d00| 43 6c 6f 73 65 00 20 2f | 2f 20 63 72 65 61 74 65 |Close. /|/ create|
|00000d10| 20 61 6e 20 41 6c 69 61 | 73 52 65 63 6f 72 64 20 | an Alia|sRecord |
|00000d20| 66 72 6f 6d 20 69 74 1a | 61 6c 69 61 73 20 3d 20 |from it.|alias = |
|00000d30| 6e 65 77 20 4d 61 63 41 | 6c 69 61 73 52 65 63 6f |new MacA|liasReco|
|00000d40| 72 64 18 61 6c 69 61 73 | 2e 53 65 74 52 65 63 6f |rd.alias|.SetReco|
|00000d50| 72 64 20 61 6c 69 73 52 | 73 72 63 00 8f 01 2f 2f |rd alisR|src...//|
|00000d60| 20 67 65 74 20 73 6f 6d | 65 20 70 61 74 68 20 69 | get som|e path i|
|00000d70| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 66 72 6f 6d 20 |nformati|on from |
|00000d80| 74 68 65 20 41 6c 69 61 | 73 52 65 63 6f 72 64 20 |the Alia|sRecord |
|00000d90| 77 69 74 68 6f 75 74 20 | 61 63 74 75 61 6c 6c 79 |without |actually|
|00000da0| 20 72 65 73 6f 6c 76 69 | 6e 67 20 69 74 2c 73 20 | resolvi|ng it,s |
|00000db0| 3d 20 22 41 6c 69 61 73 | 20 46 69 6c 65 27 73 20 |= "Alias| File's |
|00000dc0| 6e 61 6d 65 3a 20 22 20 | 2b 20 66 2e 4e 61 6d 65 |name: " |+ f.Name|
|00000dd0| 20 2b 20 43 68 72 28 31 | 33 29 0f 73 20 3d 20 73 | + Chr(1|3).s = s|
|00000de0| 20 2b 20 43 68 72 28 31 | 33 29 3f 73 20 3d 20 73 | + Chr(1|3)?s = s|
|00000df0| 20 2b 20 22 44 65 73 74 | 69 6e 61 74 69 6f 6e 20 | + "Dest|ination |
|00000e00| 7a 6f 6e 65 20 6e 61 6d | 65 3a 20 22 20 2b 20 61 |zone nam|e: " + a|
|00000e10| 6c 69 61 73 2e 47 65 74 | 49 6e 66 6f 28 2d 33 29 |lias.Get|Info(-3)|
|00000e20| 20 2b 20 43 68 72 28 31 | 33 29 81 01 73 20 3d 20 | + Chr(1|3)..s = |
|00000e30| 73 20 2b 20 22 44 65 73 | 74 69 6e 61 74 69 6f 6e |s + "Des|tination|
|00000e40| 20 73 65 72 76 65 72 20 | 6e 61 6d 65 3a 20 22 20 | server |name: " |
|00000e50| 2b 20 61 6c 69 61 73 2e | 47 65 74 49 6e 66 6f 28 |+ alias.|GetInfo(|
|00000e60| 2d 32 29 20 2b 20 43 68 | 72 28 31 33 29 81 01 73 |-2) + Ch|r(13)..s|
|00000e70| 20 3d 20 73 20 2b 20 22 | 44 65 73 74 69 6e 61 74 | = s + "|Destinat|
|00000e80| 69 6f 6e 20 76 6f 6c 75 | 6d 65 20 6e 61 6d 65 3a |ion volu|me name:|
|00000e90| 20 22 20 2b 20 61 6c 69 | 61 73 2e 47 65 74 49 6e | " + ali|as.GetIn|
|00000ea0| 66 6f 28 2d 31 29 20 2b | 20 43 68 72 28 31 33 29 |fo(-1) +| Chr(13)|
|00000eb0| 3e 73 20 3d 20 73 20 2b | 20 22 44 65 73 74 69 6e |>s = s +| "Destin|
|00000ec0| 61 74 69 6f 6e 20 69 74 | 65 6d 20 6e 61 6d 65 3a |ation it|em name:|
|00000ed0| 20 22 20 2b 20 61 6c 69 | 61 73 2e 47 65 74 49 6e | " + ali|as.GetIn|
|00000ee0| 66 6f 28 30 29 20 2b 20 | 43 68 72 28 31 33 29 00 |fo(0) + |Chr(13).|
|00000ef0| 1e 2f 2f 20 6e 6f 77 20 | 6c 65 74 27 73 20 72 65 |.// now |let's re|
|00000f00| 73 6f 6c 76 65 20 74 68 | 65 20 41 6c 69 61 73 08 |solve th|e Alias.|
|00000f10| 6d 6f 64 65 20 3d 20 30 | 1b 69 66 20 73 65 6c 66 |mode = 0|.if self|
|00000f20| 2e 4d 6f 75 6e 74 43 68 | 6b 2e 76 61 6c 75 65 20 |.MountCh|k.value |
|00000f30| 74 68 65 6e 20 6d 6f 64 | 65 20 3d 20 6d 6f 64 65 |then mod|e = mode|
|00000f40| 20 2b 20 61 6c 69 61 73 | 2e 61 74 74 65 6d 70 74 | + alias|.attempt|
|00000f50| 4d 6f 75 6e 74 1b 69 66 | 20 73 65 6c 66 2e 4e 6f |Mount.if| self.No|
|00000f60| 44 6c 67 43 68 6b 2e 76 | 61 6c 75 65 20 74 68 65 |DlgChk.v|alue the|
|00000f70| 6e 1d 6d 6f 64 65 20 3d | 20 6d 6f 64 65 20 2b 20 |n.mode =| mode + |
|00000f80| 61 6c 69 61 73 2e 6e 6f | 44 69 61 6c 6f 67 73 03 |alias.no|Dialogs.|
|00000f90| 65 6e 64 03 65 6e 64 1d | 66 31 20 3d 20 61 6c 69 |end.end.|f1 = ali|
|00000fa0| 61 73 2e 52 65 73 6f 6c | 76 65 28 6e 69 6c 2c 20 |as.Resol|ve(nil, |
|00000fb0| 6d 6f 64 65 29 0f 73 20 | 3d 20 73 20 2b 20 43 68 |mode).s |= s + Ch|
|00000fc0| 72 28 31 33 29 11 69 66 | 20 66 31 20 3c 3e 20 6e |r(13).if| f1 <> n|
|00000fd0| 69 6c 20 74 68 65 6e 35 | 73 20 3d 20 73 20 2b 20 |il then5|s = s + |
|00000fe0| 22 52 65 73 6f 6c 76 65 | 64 20 70 61 74 68 3a 20 |"Resolve|d path: |
|00000ff0| 22 20 2b 20 66 31 2e 61 | 62 73 6f 6c 75 74 65 50 |" + f1.a|bsoluteP|
|00001000| 61 74 68 20 2b 20 43 68 | 72 28 31 33 29 04 65 6c |ath + Ch|r(13).el|
|00001010| 73 65 30 73 20 3d 20 73 | 20 2b 20 22 55 6e 61 62 |se0s = s| + "Unab|
|00001020| 6c 65 20 74 6f 20 72 65 | 73 6f 6c 76 65 20 74 68 |le to re|solve th|
|00001030| 65 20 61 6c 69 61 73 2e | 22 20 2b 20 43 68 72 28 |e alias.|" + Chr(|
|00001040| 31 33 29 03 65 6e 64 00 | 04 65 6c 73 65 27 2f 2f |13).end.|.else'//|
|00001050| 20 54 68 69 73 20 69 73 | 20 61 20 66 69 6c 65 20 | This is| a file |
|00001060| 6f 72 20 66 6f 6c 64 65 | 72 20 28 6e 6f 20 41 6c |or folde|r (no Al|
|00001070| 69 61 73 29 2c 33 2f 2f | 20 6c 65 74 27 73 20 63 |ias),3//| let's c|
|00001080| 72 65 61 74 65 20 61 6e | 20 41 6c 69 61 73 20 46 |reate an| Alias F|
|00001090| 69 6c 65 20 66 6f 72 20 | 69 74 20 6f 6e 20 74 68 |ile for |it on th|
|000010a0| 65 20 44 65 73 6b 74 6f | 70 00 1a 61 6c 69 61 73 |e Deskto|p..alias|
|000010b0| 20 3d 20 6e 65 77 20 4d | 61 63 41 6c 69 61 73 52 | = new M|acAliasR|
|000010c0| 65 63 6f 72 64 1a 65 72 | 72 20 3d 20 61 6c 69 61 |ecord.er|r = alia|
|000010d0| 73 2e 43 72 65 61 74 65 | 28 6e 69 6c 2c 20 66 29 |s.Create|(nil, f)|
|000010e0| 10 69 66 20 65 72 72 20 | 3c 3e 20 30 20 74 68 65 |.if err |<> 0 the|
|000010f0| 6e 88 01 73 20 3d 20 22 | 4f 6f 70 73 20 2d 20 61 |n..s = "|Oops - a|
|00001100| 6e 20 65 72 72 6f 72 20 | 6f 63 63 75 72 65 64 20 |n error |occured |
|00001110| 77 68 65 6e 20 63 72 65 | 61 74 69 6e 67 20 74 68 |when cre|ating th|
|00001120| 65 20 41 6c 69 61 73 52 | 65 63 6f 72 64 3a 20 22 |e AliasR|ecord: "|
|00001130| 20 2b 20 53 74 72 28 65 | 72 72 29 04 65 6c 73 65 | + Str(e|rr).else|
|00001140| 2d 66 31 20 3d 20 44 65 | 73 6b 74 6f 70 46 6f 6c |-f1 = De|sktopFol|
|00001150| 64 65 72 2e 54 72 75 65 | 43 68 69 6c 64 28 66 2e |der.True|Child(f.|
|00001160| 6e 61 6d 65 2b 22 20 41 | 6c 69 61 73 22 29 11 69 |name+" A|lias").i|
|00001170| 66 20 66 31 2e 65 78 69 | 73 74 73 20 74 68 65 6e |f f1.exi|sts then|
|00001180| b0 01 73 20 3d 20 22 4f | 6f 70 73 20 2d 20 43 61 |..s = "O|ops - Ca|
|00001190| 6e 27 74 20 63 72 65 61 | 74 65 20 74 68 65 20 41 |n't crea|te the A|
|000011a0| 6c 69 61 73 20 46 69 6c | 65 3a 20 74 68 65 72 65 |lias Fil|e: there|
|000011b0| 27 73 20 61 6c 72 65 61 | 64 79 20 61 20 66 69 6c |'s alrea|dy a fil|
|000011c0| 65 20 77 69 74 68 20 74 | 68 65 20 6e 61 6d 65 20 |e with t|he name |
|000011d0| d2 22 20 2b 20 66 31 2e | 6e 61 6d 65 20 2b 20 22 |." + f1.|name + "|
|000011e0| d3 20 6f 6e 20 74 68 65 | 20 44 65 73 6b 74 6f 70 |. on the| Desktop|
|000011f0| 2e 22 04 65 6c 73 65 38 | 2f 2f 20 63 72 65 61 74 |.".else8|// creat|
|00001200| 65 20 61 20 6e 65 77 20 | 66 69 6c 65 20 69 6e 20 |e a new |file in |
|00001210| 74 68 65 20 62 6f 6f 74 | 20 76 6f 6c 75 6d 65 27 |the boot| volume'|
|00001220| 73 20 64 65 73 6b 74 6f | 70 20 66 6f 6c 64 65 72 |s deskto|p folder|
|00001230| 25 72 66 20 3d 20 66 31 | 2e 43 72 65 61 74 65 52 |%rf = f1|.CreateR|
|00001240| 65 73 6f 75 72 63 65 46 | 6f 72 6b 28 22 41 6e 79 |esourceF|ork("Any|
|00001250| 46 69 6c 65 22 29 10 69 | 66 20 72 66 20 3d 20 6e |File").i|f rf = n|
|00001260| 69 6c 20 74 68 65 6e 87 | 01 73 20 3d 20 22 4f 6f |il then.|.s = "Oo|
|00001270| 70 73 20 2d 20 46 61 69 | 6c 65 64 20 74 6f 20 63 |ps - Fai|led to c|
|00001280| 72 65 61 74 65 20 74 68 | 65 20 41 6c 69 61 73 20 |reate th|e Alias |
|00001290| 46 69 6c 65 20 d2 22 20 | 2b 20 66 31 2e 61 62 73 |File ." |+ f1.abs|
|000012a0| 6f 6c 75 74 65 50 61 74 | 68 20 2b 20 22 d3 2e 22 |olutePat|h + ".."|
|000012b0| 04 65 6c 73 65 00 2d 2f | 2f 20 61 64 64 20 74 68 |.else.-/|/ add th|
|000012c0| 65 20 41 6c 69 61 73 52 | 65 63 6f 72 64 20 74 6f |e AliasR|ecord to|
|000012d0| 20 74 68 65 20 66 69 6c | 65 27 73 20 72 65 73 6f | the fil|e's reso|
|000012e0| 75 72 63 65 94 01 72 66 | 2e 41 64 64 52 65 73 6f |urce..rf|.AddReso|
|000012f0| 75 72 63 65 20 61 6c 69 | 61 73 2e 47 65 74 52 65 |urce ali|as.GetRe|
|00001300| 63 6f 72 64 28 29 2c 20 | 22 61 6c 69 73 22 2c 20 |cord(), |"alis", |
|00001310| 30 2c 20 22 43 72 65 61 | 74 65 64 20 62 79 20 54 |0, "Crea|ted by T|
|00001320| 54 27 73 20 41 6c 69 61 | 73 20 4d 67 72 20 50 6c |T's Alia|s Mgr Pl|
|00001330| 75 67 69 6e 20 44 65 6d | 6f 22 00 28 2f 2f 20 73 |ugin Dem|o".(// s|
|00001340| 65 74 20 74 68 65 20 66 | 69 6c 65 27 73 20 74 79 |et the f|ile's ty|
|00001350| 70 65 20 61 6e 64 20 63 | 72 65 61 74 6f 72 20 63 |pe and c|reator c|
|00001360| 6f 64 65 73 13 69 66 20 | 66 2e 44 69 72 65 63 74 |odes.if |f.Direct|
|00001370| 6f 72 79 20 74 68 65 6e | 13 66 31 2e 4d 61 63 54 |ory then|.f1.MacT|
|00001380| 79 70 65 20 3d 20 22 66 | 64 72 70 22 16 66 31 2e |ype = "f|drp".f1.|
|00001390| 4d 61 63 43 72 65 61 74 | 6f 72 20 3d 20 22 4d 41 |MacCreat|or = "MA|
|000013a0| 43 53 22 04 65 6c 73 65 | 16 66 31 2e 4d 61 63 54 |CS".else|.f1.MacT|
|000013b0| 79 70 65 20 3d 20 66 2e | 4d 61 63 54 79 70 65 1c |ype = f.|MacType.|
|000013c0| 66 31 2e 4d 61 63 43 72 | 65 61 74 6f 72 20 3d 20 |f1.MacCr|eator = |
|000013d0| 66 2e 4d 61 63 43 72 65 | 61 74 6f 72 03 65 6e 64 |f.MacCre|ator.end|
|000013e0| 00 33 2f 2f 20 73 65 74 | 20 74 68 65 20 22 69 73 |.3// set| the "is|
|000013f0| 41 6c 69 61 73 22 20 66 | 6c 61 67 20 69 6e 20 74 |Alias" f|lag in t|
|00001400| 68 65 20 66 69 6c 65 27 | 73 20 70 72 6f 70 65 72 |he file'|s proper|
|00001410| 74 69 65 73 2e 81 01 2f | 2f 20 52 42 20 64 6f 65 |ties.../|/ RB doe|
|00001420| 73 20 6e 6f 74 20 70 72 | 6f 76 69 64 65 20 61 20 |s not pr|ovide a |
|00001430| 66 75 6e 63 74 69 6f 6e | 20 66 6f 72 20 74 68 69 |function| for thi|
|00001440| 73 20 28 74 68 65 20 41 | 6c 69 61 73 20 70 72 6f |s (the A|lias pro|
|00001450| 70 65 72 74 79 20 6f 66 | 3e 2f 2f 20 74 68 65 20 |perty of|>// the |
|00001460| 46 6f 6c 64 65 72 49 74 | 65 6d 20 63 6c 61 73 73 |FolderIt|em class|
|00001470| 20 69 73 20 72 65 61 64 | 2d 6f 6e 6c 79 29 2c 20 | is read|-only), |
|00001480| 74 68 75 73 20 77 65 20 | 75 73 65 20 74 77 6f 20 |thus we |use two |
|00001490| 6d 65 74 68 6f 64 73 21 | 2f 2f 20 66 72 6f 6d 20 |methods!|// from |
|000014a0| 54 54 27 73 20 46 69 6c | 65 4d 67 72 20 70 6c 75 |TT's Fil|eMgr plu|
|000014b0| 67 69 6e 20 68 65 72 65 | 2e 39 65 72 72 20 3d 20 |gin here|.9err = |
|000014c0| 66 31 2e 53 65 74 46 69 | 6c 65 46 6c 61 67 73 28 |f1.SetFi|leFlags(|
|000014d0| 42 69 74 77 69 73 65 4f | 72 28 66 31 2e 47 65 74 |BitwiseO|r(f1.Get|
|000014e0| 46 69 6c 65 46 6c 61 67 | 73 2c 20 26 48 38 30 30 |FileFlag|s, &H800|
|000014f0| 30 29 29 00 08 72 66 2e | 43 6c 6f 73 65 00 3e 2f |0))..rf.|Close.>/|
|00001500| 2f 20 6d 61 6b 65 20 74 | 68 65 20 6e 65 77 6c 79 |/ make t|he newly|
|00001510| 20 63 72 65 61 74 65 64 | 20 66 69 6c 65 20 6b 6e | created| file kn|
|00001520| 6f 77 6e 20 74 6f 20 74 | 68 65 20 46 69 6e 64 65 |own to t|he Finde|
|00001530| 72 20 69 6d 6d 65 64 69 | 61 74 65 6c 79 15 55 70 |r immedi|ately.Up|
|00001540| 64 61 74 65 49 74 65 6d | 49 6e 46 69 6e 64 65 72 |dateItem|InFinder|
|00001550| 20 66 31 00 84 01 73 20 | 3d 20 22 41 6c 69 61 73 | f1...s |= "Alias|
|00001560| 20 74 6f 20 d2 22 20 2b | 20 66 2e 6e 61 6d 65 20 | to ." +| f.name |
|00001570| 2b 20 22 d3 20 73 75 63 | 63 65 73 73 66 75 6c 6c |+ ". suc|cessfull|
|00001580| 79 20 63 72 65 61 74 65 | 64 20 6f 6e 20 74 68 65 |y create|d on the|
|00001590| 20 44 65 73 6b 74 6f 70 | 2e 22 03 65 6e 64 03 65 | Desktop|.".end.e|
|000015a0| 6e 64 03 65 6e 64 00 03 | 65 6e 64 00 11 49 6e 66 |nd.end..|end..Inf|
|000015b0| 6f 74 65 78 74 2e 54 65 | 78 74 20 3d 20 73 00 07 |otext.Te|xt = s..|
|000015c0| 45 6e 64 20 53 75 62 00 | 06 0f 45 6e 61 62 6c 65 |End Sub.|..Enable|
|000015d0| 4d 65 6e 75 49 74 65 6d | 73 02 1f 02 1f 04 15 53 |MenuItem|s......S|
|000015e0| 75 62 20 45 6e 61 62 6c | 65 4d 65 6e 75 49 74 65 |ub Enabl|eMenuIte|
|000015f0| 6d 73 28 29 17 46 69 6c | 65 4f 70 65 6e 2e 65 6e |ms().Fil|eOpen.en|
|00001600| 61 62 6c 65 64 20 3d 20 | 74 72 75 65 1f 46 69 6c |abled = |true.Fil|
|00001610| 65 53 65 6c 65 63 74 46 | 6f 6c 64 65 72 2e 65 6e |eSelectF|older.en|
|00001620| 61 62 6c 65 64 20 3d 20 | 74 72 75 65 07 45 6e 64 |abled = |true.End|
|00001630| 20 53 75 62 0a 44 72 6f | 70 4f 62 6a 65 63 74 02 | Sub.Dro|pObject.|
|00001640| 0c 02 0c 05 1f 53 75 62 | 20 44 72 6f 70 4f 62 6a |.....Sub| DropObj|
|00001650| 65 63 74 28 6f 62 6a 20 | 41 73 20 44 72 61 67 49 |ect(obj |As DragI|
|00001660| 74 65 6d 29 1f 69 66 20 | 6f 62 6a 2e 46 6f 6c 64 |tem).if |obj.Fold|
|00001670| 65 72 49 74 65 6d 41 76 | 61 69 6c 61 62 6c 65 20 |erItemAv|ailable |
|00001680| 74 68 65 6e 17 44 65 6d | 6f 49 74 20 28 6f 62 6a |then.Dem|oIt (obj|
|00001690| 2e 46 6f 6c 64 65 72 49 | 74 65 6d 29 03 65 6e 64 |.FolderI|tem).end|
|000016a0| 07 45 6e 64 20 53 75 62 | 07 4d 6f 75 73 65 55 70 |.End Sub|.MouseUp|
|000016b0| 03 10 03 10 06 27 53 75 | 62 20 4d 6f 75 73 65 55 |.....'Su|b MouseU|
|000016c0| 70 28 58 20 41 73 20 49 | 6e 74 65 67 65 72 2c 20 |p(X As I|nteger, |
|000016d0| 59 20 41 73 20 49 6e 74 | 65 67 65 72 29 1c 75 72 |Y As Int|eger).ur|
|000016e0| 6c 2e 74 65 78 74 63 6f | 6c 6f 72 20 3d 20 52 47 |l.textco|lor = RG|
|000016f0| 42 28 30 2c 30 2c 32 35 | 35 29 92 01 69 66 20 78 |B(0,0,25|5)..if x|
|00001700| 3e 75 72 6c 2e 6c 65 66 | 74 20 61 6e 64 20 78 3c |>url.lef|t and x<|
|00001710| 75 72 6c 2e 6c 65 66 74 | 2b 75 72 6c 2e 77 69 64 |url.left|+url.wid|
|00001720| 74 68 20 61 6e 64 20 79 | 3e 75 72 6c 2e 74 6f 70 |th and y|>url.top|
|00001730| 20 61 6e 64 20 79 3c 75 | 72 6c 2e 74 6f 70 2b 75 | and y<u|rl.top+u|
|00001740| 72 6c 2e 68 65 69 67 68 | 74 20 74 68 65 6e 10 53 |rl.heigh|t then.S|
|00001750| 68 6f 77 55 52 4c 20 75 | 72 6c 2e 74 65 78 74 06 |howURL u|rl.text.|
|00001760| 65 6e 64 20 69 66 07 45 | 6e 64 20 53 75 62 09 4d |end if.E|nd Sub.M|
|00001770| 6f 75 73 65 44 72 61 67 | 01 00 05 06 07 29 53 75 |ouseDrag|.....)Su|
|00001780| 62 20 4d 6f 75 73 65 44 | 72 61 67 28 58 20 41 73 |b MouseD|rag(X As|
|00001790| 20 49 6e 74 65 67 65 72 | 2c 20 59 20 41 73 20 49 | Integer|, Y As I|
|000017a0| 6e 74 65 67 65 72 29 92 | 01 69 66 20 78 3e 75 72 |nteger).|.if x>ur|
|000017b0| 6c 2e 6c 65 66 74 20 61 | 6e 64 20 78 3c 75 72 6c |l.left a|nd x<url|
|000017c0| 2e 6c 65 66 74 2b 75 72 | 6c 2e 77 69 64 74 68 20 |.left+ur|l.width |
|000017d0| 61 6e 64 20 79 3e 75 72 | 6c 2e 74 6f 70 20 61 6e |and y>ur|l.top an|
|000017e0| 64 20 79 3c 75 72 6c 2e | 74 6f 70 2b 75 72 6c 2e |d y<url.|top+url.|
|000017f0| 68 65 69 67 68 74 20 74 | 68 65 6e 1c 75 72 6c 2e |height t|hen.url.|
|00001800| 74 65 78 74 63 6f 6c 6f | 72 20 3d 20 52 47 42 28 |textcolo|r = RGB(|
|00001810| 32 35 35 2c 30 2c 30 29 | 04 65 6c 73 65 1c 75 72 |255,0,0)|.else.ur|
|00001820| 6c 2e 74 65 78 74 63 6f | 6c 6f 72 20 3d 20 52 47 |l.textco|lor = RG|
|00001830| 42 28 30 2c 30 2c 32 35 | 35 29 06 65 6e 64 20 69 |B(0,0,25|5).end i|
|00001840| 66 07 45 6e 64 20 53 75 | 62 09 4d 6f 75 73 65 44 |f.End Su|b.MouseD|
|00001850| 6f 77 6e 01 00 04 06 06 | 39 46 75 6e 63 74 69 6f |own.....|9Functio|
|00001860| 6e 20 4d 6f 75 73 65 44 | 6f 77 6e 28 58 20 41 73 |n MouseD|own(X As|
|00001870| 20 49 6e 74 65 67 65 72 | 2c 20 59 20 41 73 20 49 | Integer|, Y As I|
|00001880| 6e 74 65 67 65 72 29 20 | 41 73 20 42 6f 6f 6c 65 |nteger) |As Boole|
|00001890| 61 6e 92 01 69 66 20 78 | 3e 75 72 6c 2e 6c 65 66 |an..if x|>url.lef|
|000018a0| 74 20 61 6e 64 20 78 3c | 75 72 6c 2e 6c 65 66 74 |t and x<|url.left|
|000018b0| 2b 75 72 6c 2e 77 69 64 | 74 68 20 61 6e 64 20 79 |+url.wid|th and y|
|000018c0| 3e 75 72 6c 2e 74 6f 70 | 20 61 6e 64 20 79 3c 75 |>url.top| and y<u|
|000018d0| 72 6c 2e 74 6f 70 2b 75 | 72 6c 2e 68 65 69 67 68 |rl.top+u|rl.heigh|
|000018e0| 74 20 74 68 65 6e 1c 75 | 72 6c 2e 74 65 78 74 63 |t then.u|rl.textc|
|000018f0| 6f 6c 6f 72 20 3d 20 52 | 47 42 28 32 35 35 2c 30 |olor = R|GB(255,0|
|00001900| 2c 30 29 0b 72 65 74 75 | 72 6e 20 74 72 75 65 06 |,0).retu|rn true.|
|00001910| 65 6e 64 20 69 66 0c 45 | 6e 64 20 46 75 6e 63 74 |end if.E|nd Funct|
|00001920| 69 6f 6e 04 4f 70 65 6e | 01 18 01 18 03 0a 53 75 |ion.Open|......Su|
|00001930| 62 20 4f 70 65 6e 28 29 | 18 41 63 63 65 70 74 46 |b Open()|.AcceptF|
|00001940| 69 6c 65 44 72 6f 70 20 | 22 41 6e 79 46 69 6c 65 |ileDrop |"AnyFile|
|00001950| 22 07 45 6e 64 20 53 75 | 62 02 08 46 69 6c 65 4f |".End Su|b..FileO|
|00001960| 70 65 6e 02 05 02 05 07 | 1a 46 75 6e 63 74 69 6f |pen.....|.Functio|
|00001970| 6e 20 41 63 74 69 6f 6e | 20 41 73 20 42 6f 6f 6c |n Action| As Bool|
|00001980| 65 61 6e 13 44 69 6d 20 | 66 20 41 73 20 46 6f 6c |ean.Dim |f As Fol|
|00001990| 64 65 72 49 74 65 6d 1e | 66 3d 47 65 74 4f 70 65 |derItem.|f=GetOpe|
|000019a0| 6e 46 6f 6c 64 65 72 49 | 74 65 6d 28 22 41 6e 79 |nFolderI|tem("Any|
|000019b0| 46 69 6c 65 22 29 0e 69 | 66 20 66 3c 3e 6e 69 6c |File").i|f f<>nil|
|000019c0| 20 74 68 65 6e 0a 44 65 | 6d 6f 49 74 20 28 66 29 | then.De|moIt (f)|
|000019d0| 06 65 6e 64 20 69 66 0c | 45 6e 64 20 46 75 6e 63 |.end if.|End Func|
|000019e0| 74 69 6f 6e 10 46 69 6c | 65 53 65 6c 65 63 74 46 |tion.Fil|eSelectF|
|000019f0| 6f 6c 64 65 72 04 0a 04 | 00 07 1a 46 75 6e 63 74 |older...|...Funct|
|00001a00| 69 6f 6e 20 41 63 74 69 | 6f 6e 20 41 73 20 42 6f |ion Acti|on As Bo|
|00001a10| 6f 6c 65 61 6e 13 44 69 | 6d 20 66 20 61 73 20 46 |olean.Di|m f as F|
|00001a20| 6f 6c 64 65 72 69 74 65 | 6d 0e 66 3d 53 65 6c 65 |olderite|m.f=Sele|
|00001a30| 63 74 46 6f 6c 64 65 72 | 0f 49 66 20 66 3c 3e 20 |ctFolder|.If f<> |
|00001a40| 4e 69 6c 20 54 68 65 6e | 0a 44 65 6d 6f 49 74 20 |Nil Then|.DemoIt |
|00001a50| 28 66 29 06 45 6e 64 20 | 49 66 0c 45 6e 64 20 46 |(f).End |If.End F|
|00001a60| 75 6e 63 74 69 6f 6e 00 | 06 07 00 00 80 02 0a 53 |unction.|.......S|
|00001a70| 74 61 74 69 63 54 65 78 | 74 00 00 00 00 01 09 4d |taticTex|t......M|
|00001a80| 6f 75 73 65 4d 6f 76 65 | 01 00 01 00 03 29 53 75 |ouseMove|.....)Su|
|00001a90| 62 20 4d 6f 75 73 65 4d | 6f 76 65 28 58 20 41 73 |b MouseM|ove(X As|
|00001aa0| 20 49 6e 74 65 67 65 72 | 2c 20 59 20 41 73 20 49 | Integer|, Y As I|
|00001ab0| 6e 74 65 67 65 72 29 00 | 07 45 6e 64 20 53 75 62 |nteger).|.End Sub|
|00001ac0| 00 00 07 00 00 80 02 0a | 53 74 61 74 69 63 54 65 |........|StaticTe|
|00001ad0| 78 74 00 00 00 00 01 09 | 4d 6f 75 73 65 4d 6f 76 |xt......|MouseMov|
|00001ae0| 65 01 00 01 00 03 29 53 | 75 62 20 4d 6f 75 73 65 |e.....)S|ub Mouse|
|00001af0| 4d 6f 76 65 28 58 20 41 | 73 20 49 6e 74 65 67 65 |Move(X A|s Intege|
|00001b00| 72 2c 20 59 20 41 73 20 | 49 6e 74 65 67 65 72 29 |r, Y As |Integer)|
|00001b10| 00 07 45 6e 64 20 53 75 | 62 00 00 07 00 00 8c 02 |..End Su|b.......|
|00001b20| 08 43 68 65 63 6b 42 6f | 78 00 00 00 00 01 06 41 |.CheckBo|x......A|
|00001b30| 63 74 69 6f 6e 01 00 01 | 00 03 0c 53 75 62 20 41 |ction...|...Sub A|
|00001b40| 63 74 69 6f 6e 28 29 00 | 07 45 6e 64 20 53 75 62 |ction().|.End Sub|
|00001b50| 00 00 07 00 00 8c 02 08 | 43 68 65 63 6b 42 6f 78 |........|CheckBox|
|00001b60| 00 00 00 00 00 00 00 07 | 00 00 ac 01 08 47 72 6f |........|.....Gro|
|00001b70| 75 70 42 6f 78 00 00 00 | 00 01 09 4d 6f 75 73 65 |upBox...|...Mouse|
|00001b80| 4d 6f 76 65 01 00 01 00 | 03 29 53 75 62 20 4d 6f |Move....|.)Sub Mo|
|00001b90| 75 73 65 4d 6f 76 65 28 | 58 20 41 73 20 49 6e 74 |useMove(|X As Int|
|00001ba0| 65 67 65 72 2c 20 59 20 | 41 73 20 49 6e 74 65 67 |eger, Y |As Integ|
|00001bb0| 65 72 29 00 07 45 6e 64 | 20 53 75 62 00 00 07 00 |er)..End| Sub....|
|00001bc0| 00 18 0a 53 74 61 74 69 | 63 54 65 78 74 00 00 00 |...Stati|cText...|
|00001bd0| 00 02 09 4d 6f 75 73 65 | 44 6f 77 6e 01 00 01 31 |...Mouse|Down...1|
|00001be0| 03 39 46 75 6e 63 74 69 | 6f 6e 20 4d 6f 75 73 65 |.9Functi|on Mouse|
|00001bf0| 44 6f 77 6e 28 58 20 41 | 73 20 49 6e 74 65 67 65 |Down(X A|s Intege|
|00001c00| 72 2c 20 59 20 41 73 20 | 49 6e 74 65 67 65 72 29 |r, Y As |Integer)|
|00001c10| 20 41 73 20 42 6f 6f 6c | 65 61 6e 31 73 68 6f 77 | As Bool|ean1show|
|00001c20| 75 72 4c 20 22 68 74 74 | 70 3a 2f 2f 6d 6f 6e 6b |urL "htt|p://monk|
|00001c30| 65 79 62 72 65 61 64 73 | 6f 66 74 77 61 72 65 2e |eybreads|oftware.|
|00001c40| 64 65 2f 72 65 61 6c 62 | 61 73 69 63 22 0c 45 6e |de/realb|asic".En|
|00001c50| 64 20 46 75 6e 63 74 69 | 6f 6e 04 4f 70 65 6e 01 |d Functi|on.Open.|
|00001c60| 00 01 00 03 0a 53 75 62 | 20 4f 70 65 6e 28 29 00 |.....Sub| Open().|
|00001c70| 07 45 6e 64 20 53 75 62 | 00 00 06 0a 53 74 61 74 |.End Sub|....Stat|
|00001c80| 69 63 54 65 78 74 1b 04 | 4e 61 6d 65 0b 53 74 61 |icText..|Name.Sta|
|00001c90| 74 69 63 54 65 78 74 31 | 05 49 6e 64 65 78 0b 2d |ticText1|.Index.-|
|00001ca0| 32 31 34 37 34 38 33 36 | 34 38 0d 54 61 62 50 61 |21474836|48.TabPa|
|00001cb0| 6e 65 6c 49 6e 64 65 78 | 01 30 07 56 69 73 69 62 |nelIndex|.0.Visib|
|00001cc0| 6c 65 04 54 72 75 65 04 | 4c 65 66 74 02 32 30 03 |le.True.|Left.20.|
|00001cd0| 54 6f 70 02 31 34 05 57 | 69 64 74 68 03 32 39 30 |Top.14.W|idth.290|
|00001ce0| 06 48 65 69 67 68 74 02 | 35 30 07 48 65 6c 70 54 |.Height.|50.HelpT|
|00001cf0| 61 67 00 0b 42 61 6c 6c | 6f 6f 6e 48 65 6c 70 00 |ag..Ball|oonHelp.|
|00001d00| 13 44 69 73 61 62 6c 65 | 64 42 61 6c 6c 6f 6f 6e |.Disable|dBalloon|
|00001d10| 48 65 6c 70 00 0e 41 75 | 74 6f 44 65 61 63 74 69 |Help..Au|toDeacti|
|00001d20| 76 61 74 65 04 54 72 75 | 65 08 4c 6f 63 6b 4c 65 |vate.Tru|e.LockLe|
|00001d30| 66 74 05 46 61 6c 73 65 | 07 4c 6f 63 6b 54 6f 70 |ft.False|.LockTop|
|00001d40| 05 46 61 6c 73 65 09 4c | 6f 63 6b 52 69 67 68 74 |.False.L|ockRight|
|00001d50| 05 46 61 6c 73 65 0a 4c | 6f 63 6b 42 6f 74 74 6f |.False.L|ockBotto|
|00001d60| 6d 05 46 61 6c 73 65 08 | 54 65 78 74 46 6f 6e 74 |m.False.|TextFont|
|00001d70| 06 53 79 73 74 65 6d 08 | 54 65 78 74 53 69 7a 65 |.System.|TextSize|
|00001d80| 02 31 32 04 42 6f 6c 64 | 05 46 61 6c 73 65 06 49 |.12.Bold|.False.I|
|00001d90| 74 61 6c 69 63 05 46 61 | 6c 73 65 09 55 6e 64 65 |talic.Fa|lse.Unde|
|00001da0| 72 6c 69 6e 65 05 46 61 | 6c 73 65 04 54 65 78 74 |rline.Fa|lse.Text|
|00001db0| b1 01 44 72 61 67 20 61 | 6e 20 41 6c 69 61 73 20 |..Drag a|n Alias |
|00001dc0| 46 69 6c 65 20 68 65 72 | 65 20 74 6f 20 76 69 65 |File her|e to vie|
|00001dd0| 77 20 74 68 65 20 41 6c | 69 61 73 2c 0d 6f 72 20 |w the Al|ias,.or |
|00001de0| 64 72 61 67 20 61 6e 79 | 20 6f 74 68 65 72 20 69 |drag any| other i|
|00001df0| 74 65 6d 20 68 65 72 65 | 20 74 6f 0d 63 72 65 61 |tem here| to.crea|
|00001e00| 74 65 20 61 20 6e 65 77 | 20 41 6c 69 61 73 20 46 |te a new| Alias F|
|00001e10| 69 6c 65 20 6f 6e 20 74 | 68 65 20 44 65 73 6b 74 |ile on t|he Deskt|
|00001e20| 6f 70 2e 09 54 65 78 74 | 41 6c 69 67 6e 01 31 09 |op..Text|Align.1.|
|00001e30| 54 65 78 74 43 6f 6c 6f | 72 01 30 09 4d 75 6c 74 |TextColo|r.0.Mult|
|00001e40| 69 4c 69 6e 65 04 54 72 | 75 65 0a 44 61 74 61 53 |iLine.Tr|ue.DataS|
|00001e50| 6f 75 72 63 65 00 09 44 | 61 74 61 46 69 65 6c 64 |ource..D|ataField|
|00001e60| 00 00 0a 53 74 61 74 69 | 63 54 65 78 74 1b 04 4e |...Stati|cText..N|
|00001e70| 61 6d 65 08 49 6e 66 6f | 74 65 78 74 05 49 6e 64 |ame.Info|text.Ind|
|00001e80| 65 78 0b 2d 32 31 34 37 | 34 38 33 36 34 38 0d 54 |ex.-2147|483648.T|
|00001e90| 61 62 50 61 6e 65 6c 49 | 6e 64 65 78 01 30 07 56 |abPanelI|ndex.0.V|
|00001ea0| 69 73 69 62 6c 65 04 54 | 72 75 65 04 4c 65 66 74 |isible.T|rue.Left|
|00001eb0| 02 32 30 03 54 6f 70 02 | 37 36 05 57 69 64 74 68 |.20.Top.|76.Width|
|00001ec0| 03 32 39 30 06 48 65 69 | 67 68 74 03 31 31 37 07 |.290.Hei|ght.117.|
|00001ed0| 48 65 6c 70 54 61 67 00 | 0b 42 61 6c 6c 6f 6f 6e |HelpTag.|.Balloon|
|00001ee0| 48 65 6c 70 00 13 44 69 | 73 61 62 6c 65 64 42 61 |Help..Di|sabledBa|
|00001ef0| 6c 6c 6f 6f 6e 48 65 6c | 70 00 0e 41 75 74 6f 44 |lloonHel|p..AutoD|
|00001f00| 65 61 63 74 69 76 61 74 | 65 04 54 72 75 65 08 4c |eactivat|e.True.L|
|00001f10| 6f 63 6b 4c 65 66 74 04 | 54 72 75 65 07 4c 6f 63 |ockLeft.|True.Loc|
|00001f20| 6b 54 6f 70 04 54 72 75 | 65 09 4c 6f 63 6b 52 69 |kTop.Tru|e.LockRi|
|00001f30| 67 68 74 04 54 72 75 65 | 0a 4c 6f 63 6b 42 6f 74 |ght.True|.LockBot|
|00001f40| 74 6f 6d 04 54 72 75 65 | 08 54 65 78 74 46 6f 6e |tom.True|.TextFon|
|00001f50| 74 06 47 65 6e 65 76 61 | 08 54 65 78 74 53 69 7a |t.Geneva|.TextSiz|
|00001f60| 65 01 39 04 42 6f 6c 64 | 05 46 61 6c 73 65 06 49 |e.9.Bold|.False.I|
|00001f70| 74 61 6c 69 63 05 46 61 | 6c 73 65 09 55 6e 64 65 |talic.Fa|lse.Unde|
|00001f80| 72 6c 69 6e 65 05 46 61 | 6c 73 65 04 54 65 78 74 |rline.Fa|lse.Text|
|00001f90| 00 09 54 65 78 74 41 6c | 69 67 6e 01 30 09 54 65 |..TextAl|ign.0.Te|
|00001fa0| 78 74 43 6f 6c 6f 72 01 | 30 09 4d 75 6c 74 69 4c |xtColor.|0.MultiL|
|00001fb0| 69 6e 65 04 54 72 75 65 | 0a 44 61 74 61 53 6f 75 |ine.True|.DataSou|
|00001fc0| 72 63 65 00 09 44 61 74 | 61 46 69 65 6c 64 00 01 |rce..Dat|aField..|
|00001fd0| 08 43 68 65 63 6b 42 6f | 78 1a 04 4e 61 6d 65 08 |.CheckBo|x..Name.|
|00001fe0| 4e 6f 44 6c 67 43 68 6b | 05 49 6e 64 65 78 0b 2d |NoDlgChk|.Index.-|
|00001ff0| 32 31 34 37 34 38 33 36 | 34 38 0d 54 61 62 50 61 |21474836|48.TabPa|
|00002000| 6e 65 6c 49 6e 64 65 78 | 01 30 07 56 69 73 69 62 |nelIndex|.0.Visib|
|00002010| 6c 65 04 54 72 75 65 04 | 4c 65 66 74 03 31 38 33 |le.True.|Left.183|
|00002020| 03 54 6f 70 03 32 33 35 | 05 57 69 64 74 68 03 31 |.Top.235|.Width.1|
|00002030| 31 34 06 48 65 69 67 68 | 74 02 32 30 07 48 65 6c |14.Heigh|t.20.Hel|
|00002040| 70 54 61 67 00 0b 42 61 | 6c 6c 6f 6f 6e 48 65 6c |pTag..Ba|lloonHel|
|00002050| 70 9e 01 53 75 70 70 72 | 65 73 73 65 73 20 61 6e |p..Suppr|esses an|
|00002060| 79 20 55 73 65 72 20 49 | 6e 74 65 72 61 63 74 69 |y User I|nteracti|
|00002070| 6f 6e 2c 20 73 75 63 68 | 20 61 73 20 61 20 6e 65 |on, such| as a ne|
|00002080| 74 77 6f 72 6b 20 6c 6f | 67 69 6e 20 64 69 61 6c |twork lo|gin dial|
|00002090| 6f 67 20 6f 72 20 61 20 | 22 49 6e 73 65 72 74 20 |og or a |"Insert |
|000020a0| 44 69 73 6b 20 2e 2e 2e | 22 20 64 69 61 6c 6f 67 |Disk ...|" dialog|
|000020b0| 2e 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|000020c0| 6e 48 65 6c 70 2d 57 69 | 6c 6c 20 62 65 20 65 6e |nHelp-Wi|ll be en|
|000020d0| 61 62 6c 65 64 20 69 66 | 20 22 41 74 74 65 6d 70 |abled if| "Attemp|
|000020e0| 74 20 4d 6f 75 6e 74 22 | 20 69 73 20 63 68 65 63 |t Mount"| is chec|
|000020f0| 6b 65 64 0e 41 75 74 6f | 44 65 61 63 74 69 76 61 |ked.Auto|Deactiva|
|00002100| 74 65 04 54 72 75 65 08 | 4c 6f 63 6b 4c 65 66 74 |te.True.|LockLeft|
|00002110| 05 46 61 6c 73 65 07 4c | 6f 63 6b 54 6f 70 05 46 |.False.L|ockTop.F|
|00002120| 61 6c 73 65 09 4c 6f 63 | 6b 52 69 67 68 74 05 46 |alse.Loc|kRight.F|
|00002130| 61 6c 73 65 0a 4c 6f 63 | 6b 42 6f 74 74 6f 6d 05 |alse.Loc|kBottom.|
|00002140| 46 61 6c 73 65 08 54 65 | 78 74 46 6f 6e 74 06 53 |False.Te|xtFont.S|
|00002150| 79 73 74 65 6d 08 54 65 | 78 74 53 69 7a 65 01 30 |ystem.Te|xtSize.0|
|00002160| 04 42 6f 6c 64 05 46 61 | 6c 73 65 06 49 74 61 6c |.Bold.Fa|lse.Ital|
|00002170| 69 63 05 46 61 6c 73 65 | 09 55 6e 64 65 72 6c 69 |ic.False|.Underli|
|00002180| 6e 65 05 46 61 6c 73 65 | 07 43 61 70 74 69 6f 6e |ne.False|.Caption|
|00002190| 0a 4e 6f 20 44 69 61 6c | 6f 67 73 05 56 61 6c 75 |.No Dial|ogs.Valu|
|000021a0| 65 05 46 61 6c 73 65 07 | 45 6e 61 62 6c 65 64 04 |e.False.|Enabled.|
|000021b0| 54 72 75 65 0a 44 61 74 | 61 53 6f 75 72 63 65 00 |True.Dat|aSource.|
|000021c0| 09 44 61 74 61 46 69 65 | 6c 64 00 02 08 43 68 65 |.DataFie|ld...Che|
|000021d0| 63 6b 42 6f 78 1a 04 4e | 61 6d 65 08 4d 6f 75 6e |ckBox..N|ame.Moun|
|000021e0| 74 43 68 6b 05 49 6e 64 | 65 78 0b 2d 32 31 34 37 |tChk.Ind|ex.-2147|
|000021f0| 34 38 33 36 34 38 0d 54 | 61 62 50 61 6e 65 6c 49 |483648.T|abPanelI|
|00002200| 6e 64 65 78 01 30 07 56 | 69 73 69 62 6c 65 04 54 |ndex.0.V|isible.T|
|00002210| 72 75 65 04 4c 65 66 74 | 02 34 30 03 54 6f 70 03 |rue.Left|.40.Top.|
|00002220| 32 33 35 05 57 69 64 74 | 68 03 31 33 32 06 48 65 |235.Widt|h.132.He|
|00002230| 69 67 68 74 02 32 30 07 | 48 65 6c 70 54 61 67 00 |ight.20.|HelpTag.|
|00002240| 0b 42 61 6c 6c 6f 6f 6e | 48 65 6c 70 3c 41 74 74 |.Balloon|Help<Att|
|00002250| 65 6d 70 74 73 20 74 6f | 20 6d 6f 75 6e 74 20 74 |empts to| mount t|
|00002260| 68 65 20 76 6f 6c 75 6d | 65 20 69 66 20 69 74 20 |he volum|e if it |
|00002270| 69 73 20 6e 6f 74 20 61 | 6c 72 65 61 64 79 20 61 |is not a|lready a|
|00002280| 76 61 69 6c 61 62 6c 65 | 2e 13 44 69 73 61 62 6c |vailable|..Disabl|
|00002290| 65 64 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 0e 41 |edBalloo|nHelp..A|
|000022a0| 75 74 6f 44 65 61 63 74 | 69 76 61 74 65 04 54 72 |utoDeact|ivate.Tr|
|000022b0| 75 65 08 4c 6f 63 6b 4c | 65 66 74 05 46 61 6c 73 |ue.LockL|eft.Fals|
|000022c0| 65 07 4c 6f 63 6b 54 6f | 70 05 46 61 6c 73 65 09 |e.LockTo|p.False.|
|000022d0| 4c 6f 63 6b 52 69 67 68 | 74 05 46 61 6c 73 65 0a |LockRigh|t.False.|
|000022e0| 4c 6f 63 6b 42 6f 74 74 | 6f 6d 05 46 61 6c 73 65 |LockBott|om.False|
|000022f0| 08 54 65 78 74 46 6f 6e | 74 06 53 79 73 74 65 6d |.TextFon|t.System|
|00002300| 08 54 65 78 74 53 69 7a | 65 01 30 04 42 6f 6c 64 |.TextSiz|e.0.Bold|
|00002310| 05 46 61 6c 73 65 06 49 | 74 61 6c 69 63 05 46 61 |.False.I|talic.Fa|
|00002320| 6c 73 65 09 55 6e 64 65 | 72 6c 69 6e 65 05 46 61 |lse.Unde|rline.Fa|
|00002330| 6c 73 65 07 43 61 70 74 | 69 6f 6e 0d 41 74 74 65 |lse.Capt|ion.Atte|
|00002340| 6d 70 74 20 4d 6f 75 6e | 74 05 56 61 6c 75 65 05 |mpt Moun|t.Value.|
|00002350| 46 61 6c 73 65 07 45 6e | 61 62 6c 65 64 04 54 72 |False.En|abled.Tr|
|00002360| 75 65 0a 44 61 74 61 53 | 6f 75 72 63 65 00 09 44 |ue.DataS|ource..D|
|00002370| 61 74 61 46 69 65 6c 64 | 00 03 08 47 72 6f 75 70 |ataField|...Group|
|00002380| 42 6f 78 17 04 4e 61 6d | 65 09 47 72 6f 75 70 42 |Box..Nam|e.GroupB|
|00002390| 6f 78 31 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |ox1.Inde|x.-21474|
|000023a0| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|000023b0| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|000023c0| 75 65 04 4c 65 66 74 02 | 32 30 03 54 6f 70 03 32 |ue.Left.|20.Top.2|
|000023d0| 30 35 05 57 69 64 74 68 | 03 32 39 30 06 48 65 69 |05.Width|.290.Hei|
|000023e0| 67 68 74 02 37 33 07 48 | 65 6c 70 54 61 67 00 0b |ght.73.H|elpTag..|
|000023f0| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 13 44 69 73 |BalloonH|elp..Dis|
|00002400| 61 62 6c 65 64 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |abledBal|loonHelp|
|00002410| 00 0e 41 75 74 6f 44 65 | 61 63 74 69 76 61 74 65 |..AutoDe|activate|
|00002420| 04 54 72 75 65 08 4c 6f | 63 6b 4c 65 66 74 05 46 |.True.Lo|ckLeft.F|
|00002430| 61 6c 73 65 07 4c 6f 63 | 6b 54 6f 70 05 46 61 6c |alse.Loc|kTop.Fal|
|00002440| 73 65 09 4c 6f 63 6b 52 | 69 67 68 74 05 46 61 6c |se.LockR|ight.Fal|
|00002450| 73 65 0a 4c 6f 63 6b 42 | 6f 74 74 6f 6d 05 46 61 |se.LockB|ottom.Fa|
|00002460| 6c 73 65 08 54 65 78 74 | 46 6f 6e 74 06 53 79 73 |lse.Text|Font.Sys|
|00002470| 74 65 6d 08 54 65 78 74 | 53 69 7a 65 01 30 04 42 |tem.Text|Size.0.B|
|00002480| 6f 6c 64 05 46 61 6c 73 | 65 06 49 74 61 6c 69 63 |old.Fals|e.Italic|
|00002490| 05 46 61 6c 73 65 09 55 | 6e 64 65 72 6c 69 6e 65 |.False.U|nderline|
|000024a0| 05 46 61 6c 73 65 07 43 | 61 70 74 69 6f 6e 1e 57 |.False.C|aption.W|
|000024b0| 68 65 6e 20 52 65 73 6f | 6c 76 69 6e 67 20 41 6c |hen Reso|lving Al|
|000024c0| 69 61 73 20 46 69 6c 65 | 73 20 2e 2e 2e 07 45 6e |ias File|s ....En|
|000024d0| 61 62 6c 65 64 04 54 72 | 75 65 04 0a 53 74 61 74 |abled.Tr|ue..Stat|
|000024e0| 69 63 54 65 78 74 1b 04 | 4e 61 6d 65 0b 53 74 61 |icText..|Name.Sta|
|000024f0| 74 69 63 54 65 78 74 32 | 05 49 6e 64 65 78 0b 2d |ticText2|.Index.-|
|00002500| 32 31 34 37 34 38 33 36 | 34 38 0d 54 61 62 50 61 |21474836|48.TabPa|
|00002510| 6e 65 6c 49 6e 64 65 78 | 01 30 07 56 69 73 69 62 |nelIndex|.0.Visib|
|00002520| 6c 65 04 54 72 75 65 04 | 4c 65 66 74 02 32 30 03 |le.True.|Left.20.|
|00002530| 54 6f 70 03 32 39 30 05 | 57 69 64 74 68 03 32 39 |Top.290.|Width.29|
|00002540| 30 06 48 65 69 67 68 74 | 02 32 30 07 48 65 6c 70 |0.Height|.20.Help|
|00002550| 54 61 67 00 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |Tag..Bal|loonHelp|
|00002560| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|00002570| 6e 48 65 6c 70 00 0e 41 | 75 74 6f 44 65 61 63 74 |nHelp..A|utoDeact|
|00002580| 69 76 61 74 65 04 54 72 | 75 65 08 4c 6f 63 6b 4c |ivate.Tr|ue.LockL|
|00002590| 65 66 74 05 46 61 6c 73 | 65 07 4c 6f 63 6b 54 6f |eft.Fals|e.LockTo|
|000025a0| 70 05 46 61 6c 73 65 09 | 4c 6f 63 6b 52 69 67 68 |p.False.|LockRigh|
|000025b0| 74 05 46 61 6c 73 65 0a | 4c 6f 63 6b 42 6f 74 74 |t.False.|LockBott|
|000025c0| 6f 6d 05 46 61 6c 73 65 | 08 54 65 78 74 46 6f 6e |om.False|.TextFon|
|000025d0| 74 05 54 69 6d 65 73 08 | 54 65 78 74 53 69 7a 65 |t.Times.|TextSize|
|000025e0| 02 31 34 04 42 6f 6c 64 | 05 46 61 6c 73 65 06 49 |.14.Bold|.False.I|
|000025f0| 74 61 6c 69 63 05 46 61 | 6c 73 65 09 55 6e 64 65 |talic.Fa|lse.Unde|
|00002600| 72 6c 69 6e 65 04 54 72 | 75 65 04 54 65 78 74 20 |rline.Tr|ue.Text |
|00002610| 6d 6f 6e 6b 65 79 62 72 | 65 61 64 73 6f 66 74 77 |monkeybr|eadsoftw|
|00002620| 61 72 65 2e 64 65 2f 72 | 65 61 6c 62 61 73 69 63 |are.de/r|ealbasic|
|00002630| 09 54 65 78 74 41 6c 69 | 67 6e 01 31 09 54 65 78 |.TextAli|gn.1.Tex|
|00002640| 74 43 6f 6c 6f 72 03 32 | 35 35 09 4d 75 6c 74 69 |tColor.2|55.Multi|
|00002650| 4c 69 6e 65 05 46 61 6c | 73 65 0a 44 61 74 61 53 |Line.Fal|se.DataS|
|00002660| 6f 75 72 63 65 00 09 44 | 61 74 61 46 69 65 6c 64 |ource..D|ataField|
|00002670| 00 05 01 00 25 45 6e 61 | 62 6c 65 20 4e 6f 44 6c |....%Ena|ble NoDl|
|00002680| 67 43 68 6b 20 77 68 65 | 6e 20 4d 6f 75 6e 74 43 |gChk whe|n MountC|
|00002690| 68 6b 20 63 68 65 63 6b | 65 64 03 00 02 00 0e 65 |hk check|ed.....e|
|000026a0| 6e 61 62 6c 69 6e 67 42 | 69 6e 64 65 72 00 00 02 |nablingB|inder...|
|000026b0| 41 04 4d 65 6e 75 04 4d | 65 6e 75 05 a4 01 a4 01 |A.Menu.M|enu.....|
|000026c0| 90 06 ac 04 04 01 00 00 | 80 80 80 80 10 00 00 00 |........|........|
|000026d0| 00 00 07 00 00 88 01 08 | 4d 65 6e 75 49 74 65 6d |........|MenuItem|
|000026e0| 00 00 00 00 00 00 00 01 | 02 00 00 80 80 80 80 10 |........|........|
|000026f0| 00 00 00 00 00 07 00 00 | 88 01 08 4d 65 6e 75 49 |........|...MenuI|
|00002700| 74 65 6d 00 00 00 00 00 | 00 00 00 00 04 46 69 6c |tem.....|.....Fil|
|00002710| 65 00 80 80 80 80 10 00 | 00 00 00 00 07 00 00 88 |e.......|........|
|00002720| 01 08 4d 65 6e 75 49 74 | 65 6d 00 00 00 00 00 00 |..MenuIt|em......|
|00002730| 00 05 00 0e 53 65 6c 65 | 63 74 20 46 69 6c 65 2e |....Sele|ct File.|
|00002740| 2e 2e 08 46 69 6c 65 4f | 70 65 6e 80 80 80 80 10 |...FileO|pen.....|
|00002750| 01 4f 00 00 00 00 07 00 | 00 88 01 08 4d 65 6e 75 |.O......|....Menu|
|00002760| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 10 53 65 |Item....|......Se|
|00002770| 6c 65 63 74 20 46 6f 6c | 64 65 72 2e 2e 2e 10 46 |lect Fol|der....F|
|00002780| 69 6c 65 53 65 6c 65 63 | 74 46 6f 6c 64 65 72 80 |ileSelec|tFolder.|
|00002790| 80 80 80 10 00 00 00 00 | 00 07 00 00 88 01 08 4d |........|.......M|
|000027a0| 65 6e 75 49 74 65 6d 00 | 00 00 00 00 00 00 00 00 |enuItem.|........|
|000027b0| 01 2d 00 80 80 80 80 10 | 00 00 00 00 00 07 00 00 |.-......|........|
|000027c0| 88 01 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |...MenuI|tem.....|
|000027d0| 00 00 00 00 04 51 75 69 | 74 08 46 69 6c 65 51 75 |.....Qui|t.FileQu|
|000027e0| 69 74 80 80 80 80 10 01 | 51 00 00 00 00 07 00 00 |it......|Q.......|
|000027f0| 88 01 0c 51 75 69 74 4d | 65 6e 75 49 74 65 6d 00 |...QuitM|enuItem.|
|00002800| 00 00 00 00 00 00 00 02 | 00 00 80 80 80 80 10 00 |........|........|
|00002810| 00 00 00 00 07 00 00 88 | 01 08 4d 65 6e 75 49 74 |........|..MenuIt|
|00002820| 65 6d 00 00 00 00 00 00 | 00 00 00 04 45 64 69 74 |em......|....Edit|
|00002830| 00 80 80 80 80 10 00 00 | 00 00 00 07 00 00 88 01 |........|........|
|00002840| 08 4d 65 6e 75 49 74 65 | 6d 00 00 00 00 00 00 00 |.MenuIte|m.......|
|00002850| 07 00 04 55 6e 64 6f 08 | 45 64 69 74 55 6e 64 6f |...Undo.|EditUndo|
|00002860| 80 80 80 80 10 01 5a 00 | 00 00 00 07 00 00 88 01 |......Z.|........|
|00002870| 08 4d 65 6e 75 49 74 65 | 6d 00 00 00 00 00 00 00 |.MenuIte|m.......|
|00002880| 00 00 01 2d 00 80 80 80 | 80 10 00 00 00 00 00 07 |...-....|........|
|00002890| 00 00 88 01 08 4d 65 6e | 75 49 74 65 6d 00 00 00 |.....Men|uItem...|
|000028a0| 00 00 00 00 00 00 03 43 | 75 74 07 45 64 69 74 43 |.......C|ut.EditC|
|000028b0| 75 74 80 80 80 80 10 01 | 58 00 00 00 00 07 00 00 |ut......|X.......|
|000028c0| 88 01 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |...MenuI|tem.....|
|000028d0| 00 00 00 00 04 43 6f 70 | 79 08 45 64 69 74 43 6f |.....Cop|y.EditCo|
|000028e0| 70 79 80 80 80 80 10 01 | 43 00 00 00 00 07 00 00 |py......|C.......|
|000028f0| 88 01 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |...MenuI|tem.....|
|00002900| 00 00 00 00 05 50 61 73 | 74 65 09 45 64 69 74 50 |.....Pas|te.EditP|
|00002910| 61 73 74 65 80 80 80 80 | 10 01 56 00 00 00 00 07 |aste....|..V.....|
|00002920| 00 00 88 01 08 4d 65 6e | 75 49 74 65 6d 00 00 00 |.....Men|uItem...|
|00002930| 00 00 00 00 00 00 05 43 | 6c 65 61 72 09 45 64 69 |.......C|lear.Edi|
|00002940| 74 43 6c 65 61 72 80 80 | 80 80 10 00 00 00 00 00 |tClear..|........|
|00002950| 07 00 00 88 01 08 4d 65 | 6e 75 49 74 65 6d 00 00 |......Me|nuItem..|
|00002960| 00 00 00 00 00 00 02 00 | 00 80 80 80 80 10 00 00 |........|........|
|00002970| 00 00 00 07 00 00 88 01 | 08 4d 65 6e 75 49 74 65 |........|.MenuIte|
|00002980| 6d 00 00 00 00 00 00 00 | 00 02 00 00 80 80 80 80 |m.......|........|
|00002990| 10 00 00 00 00 00 07 00 | 00 88 01 08 4d 65 6e 75 |........|....Menu|
|000029a0| 49 74 65 6d 00 00 00 00 | 00 00 00 00 05 41 06 4d |Item....|.....A.M|
|000029b0| 6f 64 75 6c 65 11 46 69 | 6e 64 65 72 41 70 70 6c |odule.Fi|nderAppl|
|000029c0| 65 45 76 65 6e 74 73 10 | 80 02 9b 0e 92 0a 07 00 |eEvents.|........|
|000029d0| 11 46 69 6e 64 65 72 41 | 70 70 6c 65 45 76 65 6e |.FinderA|ppleEven|
|000029e0| 74 73 18 00 00 00 05 12 | 52 65 76 65 61 6c 49 74 |ts......|RevealIt|
|000029f0| 65 6d 49 6e 46 69 6e 64 | 65 72 0f 66 20 61 73 20 |emInFind|er.f as |
|00002a00| 46 6f 6c 64 65 72 49 74 | 65 6d 00 00 03 00 05 03 |FolderIt|em......|
|00002a10| 07 27 53 75 62 20 52 65 | 76 65 61 6c 49 74 65 6d |.'Sub Re|vealItem|
|00002a20| 49 6e 46 69 6e 64 65 72 | 28 66 20 61 73 20 46 6f |InFinder|(f as Fo|
|00002a30| 6c 64 65 72 49 74 65 6d | 29 11 44 69 6d 20 6f 6b |lderItem|).Dim ok|
|00002a40| 20 61 73 20 42 6f 6f 6c | 65 61 6e 81 01 6f 6b 20 | as Bool|ean..ok |
|00002a50| 3d 20 73 65 6e 64 49 74 | 65 6d 41 45 20 28 22 6d |= sendIt|emAE ("m|
|00002a60| 69 73 63 22 2c 20 22 6d | 76 69 73 22 2c 20 22 4d |isc", "m|vis", "M|
|00002a70| 41 43 53 22 2c 20 66 29 | 20 2f 2f 20 6b 41 45 4d |ACS", f)| // kAEM|
|00002a80| 61 6b 65 49 74 65 6d 56 | 69 73 69 62 6c 65 0e 69 |akeItemV|isible.i|
|00002a90| 66 20 6e 6f 74 20 6f 6b | 20 74 68 65 6e 2a 27 4d |f not ok| then*'M|
|00002aa0| 73 67 42 6f 78 20 22 4f | 6f 70 73 2c 20 52 65 76 |sgBox "O|ops, Rev|
|00002ab0| 65 61 6c 20 66 61 69 6c | 65 64 20 75 6e 65 78 70 |eal fail|ed unexp|
|00002ac0| 65 63 74 65 64 6c 79 22 | 03 65 6e 64 07 45 6e 64 |ectedly"|.end.End|
|00002ad0| 20 53 75 62 12 55 70 64 | 61 74 65 49 74 65 6d 49 | Sub.Upd|ateItemI|
|00002ae0| 6e 46 69 6e 64 65 72 0f | 66 20 61 73 20 46 6f 6c |nFinder.|f as Fol|
|00002af0| 64 65 72 49 74 65 6d 00 | 00 09 01 09 01 0c 27 53 |derItem.|......'S|
|00002b00| 75 62 20 55 70 64 61 74 | 65 49 74 65 6d 49 6e 46 |ub Updat|eItemInF|
|00002b10| 69 6e 64 65 72 28 66 20 | 61 73 20 46 6f 6c 64 65 |inder(f |as Folde|
|00002b20| 72 49 74 65 6d 29 12 44 | 69 6d 20 65 72 72 20 61 |rItem).D|im err a|
|00002b30| 73 20 49 6e 74 65 67 65 | 72 11 44 69 6d 20 6f 6b |s Intege|r.Dim ok|
|00002b40| 20 61 73 20 42 6f 6f 6c | 65 61 6e 00 3d 6f 6b 20 | as Bool|ean.=ok |
|00002b50| 3d 20 73 65 6e 64 49 74 | 65 6d 41 45 20 28 22 66 |= sendIt|emAE ("f|
|00002b60| 6e 64 72 22 2c 20 22 66 | 75 70 64 22 2c 20 22 4d |ndr", "f|upd", "M|
|00002b70| 41 43 53 22 2c 20 66 2e | 50 61 72 65 6e 74 29 20 |ACS", f.|Parent) |
|00002b80| 2f 2f 20 6b 41 45 53 79 | 6e 63 0a 69 66 20 6f 6b |// kAESy|nc.if ok|
|00002b90| 20 74 68 65 6e 36 6f 6b | 20 3d 20 73 65 6e 64 49 | then6ok| = sendI|
|00002ba0| 74 65 6d 41 45 20 28 22 | 66 6e 64 72 22 2c 20 22 |temAE ("|fndr", "|
|00002bb0| 66 75 70 64 22 2c 20 22 | 4d 41 43 53 22 2c 20 66 |fupd", "|MACS", f|
|00002bc0| 29 20 2f 2f 20 6b 41 45 | 53 79 6e 63 03 65 6e 64 |) // kAE|Sync.end|
|00002bd0| 0e 69 66 20 6e 6f 74 20 | 6f 6b 20 74 68 65 6e 2a |.if not |ok then*|
|00002be0| 27 4d 73 67 42 6f 78 20 | 22 4f 6f 70 73 2c 20 55 |'MsgBox |"Oops, U|
|00002bf0| 70 64 61 74 65 20 66 61 | 69 6c 65 64 20 75 6e 65 |pdate fa|iled une|
|00002c00| 78 70 65 63 74 65 64 6c | 79 22 03 65 6e 64 07 45 |xpectedl|y".end.E|
|00002c10| 6e 64 20 53 75 62 0a 73 | 65 6e 64 49 74 65 6d 41 |nd Sub.s|endItemA|
|00002c20| 45 39 73 31 20 61 73 20 | 53 74 72 69 6e 67 2c 20 |E9s1 as |String, |
|00002c30| 73 32 20 61 73 20 53 74 | 72 69 6e 67 2c 20 73 33 |s2 as St|ring, s3|
|00002c40| 20 61 73 20 53 74 72 69 | 6e 67 2c 20 66 20 61 73 | as Stri|ng, f as|
|00002c50| 20 46 6f 6c 64 65 72 49 | 74 65 6d 07 42 6f 6f 6c | FolderI|tem.Bool|
|00002c60| 65 61 6e 01 0c 0c 0c 0c | 0e 99 01 46 75 6e 63 74 |ean.....|...Funct|
|00002c70| 69 6f 6e 20 73 65 6e 64 | 49 74 65 6d 41 45 28 73 |ion send|ItemAE(s|
|00002c80| 31 20 61 73 20 53 74 72 | 69 6e 67 2c 20 73 32 20 |1 as Str|ing, s2 |
|00002c90| 61 73 20 53 74 72 69 6e | 67 2c 20 73 33 20 61 73 |as Strin|g, s3 as|
|00002ca0| 20 53 74 72 69 6e 67 2c | 20 66 20 61 73 20 46 6f | String,| f as Fo|
|00002cb0| 6c 64 65 72 49 74 65 6d | 29 20 41 73 20 42 6f 6f |lderItem|) As Boo|
|00002cc0| 6c 65 61 6e 14 44 69 6d | 20 61 65 20 61 73 20 41 |lean.Dim| ae as A|
|00002cd0| 70 70 6c 65 45 76 65 6e | 74 1e 44 69 6d 20 6c 69 |ppleEven|t.Dim li|
|00002ce0| 73 74 20 61 73 20 41 70 | 70 6c 65 45 76 65 6e 74 |st as Ap|pleEvent|
|00002cf0| 44 65 73 63 4c 69 73 74 | 1b 69 66 20 46 69 6e 64 |DescList|.if Find|
|00002d00| 65 72 53 75 70 70 6f 72 | 74 73 4f 53 4c 28 29 20 |erSuppor|tsOSL() |
|00002d10| 74 68 65 6e 1f 61 65 20 | 3d 20 4e 65 77 41 70 70 |then.ae |= NewApp|
|00002d20| 6c 65 45 76 65 6e 74 20 | 28 73 31 2c 20 73 32 2c |leEvent |(s1, s2,|
|00002d30| 20 73 33 29 11 69 66 20 | 61 65 20 3c 3e 20 6e 69 | s3).if |ae <> ni|
|00002d40| 6c 20 74 68 65 6e 1d 6c | 69 73 74 20 3d 20 4e 65 |l then.l|ist = Ne|
|00002d50| 77 20 41 70 70 6c 65 45 | 76 65 6e 74 44 65 73 63 |w AppleE|ventDesc|
|00002d60| 4c 69 73 74 19 6c 69 73 | 74 2e 41 70 70 65 6e 64 |List.lis|t.Append|
|00002d70| 46 6f 6c 64 65 72 49 74 | 65 6d 20 28 66 29 1f 61 |FolderIt|em (f).a|
|00002d80| 65 2e 44 65 73 63 4c 69 | 73 74 50 61 72 61 6d 28 |e.DescLi|stParam(|
|00002d90| 22 2d 2d 2d 2d 22 29 20 | 3d 20 6c 69 73 74 0e 72 |"----") |= list.r|
|00002da0| 65 74 75 72 6e 20 61 65 | 2e 53 65 6e 64 03 65 6e |eturn ae|.Send.en|
|00002db0| 64 03 65 6e 64 0c 72 65 | 74 75 72 6e 20 66 61 6c |d.end.re|turn fal|
|00002dc0| 73 65 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 11 |se.End F|unction.|
|00002dd0| 46 69 6e 64 65 72 53 75 | 70 70 6f 72 74 73 4f 53 |FinderSu|pportsOS|
|00002de0| 4c 00 07 42 6f 6f 6c 65 | 61 6e 00 05 1c 05 1c 07 |L..Boole|an......|
|00002df0| 27 46 75 6e 63 74 69 6f | 6e 20 46 69 6e 64 65 72 |'Functio|n Finder|
|00002e00| 53 75 70 70 6f 72 74 73 | 4f 53 4c 28 29 20 41 73 |Supports|OSL() As|
|00002e10| 20 42 6f 6f 6c 65 61 6e | 10 44 69 6d 20 6c 20 61 | Boolean|.Dim l a|
|00002e20| 73 20 49 6e 74 65 67 65 | 72 25 69 66 20 6e 6f 74 |s Intege|r%if not|
|00002e30| 20 53 79 73 74 65 6d 2e | 47 65 73 74 61 6c 74 28 | System.|Gestalt(|
|00002e40| 22 66 6e 64 72 22 2c 20 | 6c 29 20 74 68 65 6e 05 |"fndr", |l) then.|
|00002e50| 6c 20 3d 20 30 03 65 6e | 64 1c 72 65 74 75 72 6e |l = 0.en|d.return|
|00002e60| 20 42 69 74 77 69 73 65 | 41 6e 64 28 6c 2c 20 38 | Bitwise|And(l, 8|
|00002e70| 29 20 3c 3e 20 30 0c 45 | 6e 64 20 46 75 6e 63 74 |) <> 0.E|nd Funct|
|00002e80| 69 6f 6e 12 42 72 69 6e | 67 46 69 6e 64 65 72 54 |ion.Brin|gFinderT|
|00002e90| 6f 46 72 6f 6e 74 00 00 | 00 09 03 09 03 0b 18 53 |oFront..|.......S|
|00002ea0| 75 62 20 42 72 69 6e 67 | 46 69 6e 64 65 72 54 6f |ub Bring|FinderTo|
|00002eb0| 46 72 6f 6e 74 28 29 11 | 44 69 6d 20 6f 6b 20 61 |Front().|Dim ok a|
|00002ec0| 73 20 42 6f 6f 6c 65 61 | 6e 14 44 69 6d 20 61 65 |s Boolea|n.Dim ae|
|00002ed0| 20 61 73 20 41 70 70 6c | 65 45 76 65 6e 74 3a 61 | as Appl|eEvent:a|
|00002ee0| 65 20 3d 20 4e 65 77 41 | 70 70 6c 65 45 76 65 6e |e = NewA|ppleEven|
|00002ef0| 74 20 28 22 6d 69 73 63 | 22 2c 20 22 61 63 74 76 |t ("misc|", "actv|
|00002f00| 22 2c 20 22 4d 41 43 53 | 22 29 20 2f 2f 20 6b 41 |", "MACS|") // kA|
|00002f10| 45 41 63 74 69 76 61 74 | 65 11 69 66 20 61 65 20 |EActivat|e.if ae |
|00002f20| 3c 3e 20 6e 69 6c 20 74 | 68 65 6e 0c 6f 6b 20 3d |<> nil t|hen.ok =|
|00002f30| 20 61 65 2e 53 65 6e 64 | 03 65 6e 64 0e 69 66 20 | ae.Send|.end.if |
|00002f40| 6e 6f 74 20 6f 6b 20 74 | 68 65 6e 2c 27 4d 73 67 |not ok t|hen,'Msg|
|00002f50| 42 6f 78 20 22 4f 6f 70 | 73 2c 20 41 63 74 69 76 |Box "Oop|s, Activ|
|00002f60| 61 74 65 20 66 61 69 6c | 65 64 20 75 6e 65 78 70 |ate fail|ed unexp|
|00002f70| 65 63 74 65 64 6c 79 22 | 03 65 6e 64 07 45 6e 64 |ectedly"|.end.End|
|00002f80| 20 53 75 62 00 00 00 00 | 00 00 00 00 00 00 00 00 | Sub....|........|
|00002f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003000| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00003010| 54 68 69 73 20 72 65 73 | 6f 75 72 63 65 20 66 6f |This res|ource fo|
|00003020| 72 6b 20 69 6e 74 65 6e | 74 69 6f 6e 61 6c 6c 79 |rk inten|tionally|
|00003030| 20 6c 65 66 74 20 62 6c | 61 6e 6b 20 20 20 00 00 | left bl|ank   ..|
|00003040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00003110| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00003120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+